home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dblrou1r / messbox.cls < prev    next >
Text File  |  1998-11-02  |  495b  |  25 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "MessBox"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = False
  10. ' A messagebox class
  11.  
  12. Public m_Message As String
  13.  
  14. Public Sub ShowIt(Owner As Form)
  15.       MBox.Show vbModal, Owner
  16. End Sub
  17.  
  18. Public Sub Change(Message As String)
  19.       m_Message = Message
  20.  
  21.       Load MBox
  22.       MBox.lblTitle = m_Message
  23.       MBox.Hide
  24. End Sub
  25.